(in-package :spring)

(defbean "bean" "dynaspring.TestBean1"
  :post-processor (lambda (bean when)
		    (if (eq when :before)
			(setf (jproperty-value bean "property1") "foo")
			(setf (jproperty-value bean "property1")
			      (concatenate 'string
					   (jproperty-value bean "property1")
					   "bar")))
		    bean))
